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ILLUSTRATION 3 
PROGRAM DOCUMENTATION ~ GIMPUNCH 


This program provides a backup method for obtaining all completed 
data base update statements for a given history tape and for one 
specified data base. The program selects all transactions for 
the data base, sorts the selected a and processes them into 
two output filess 


SYSPRINT - A listing of data pertaining to all eons e 
records for the data base. When an 
asterisk (*) appears in the column UPD 
FLG, it indicates that this was a completed 
update statement. 


GIMPNCH - A series of 80-byte records containing the 
entire completed update statements. Each 
Statement is contained in at least one 
record and often is contained in a series 
of records. Where possible, the original 
transaction number of the statement is 
contained in byte 73-80 of the last record 
of the statement. 

The selection of the data base is controlled by a 
parameter to the program. It is in the EXEC card of the 
JCL file. Sample JCL is attached. 
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| ILLUSTRATION 3. (CoM7*) 
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//PURCH JOB JOE-CARD-ACCOUNT ING-INFORMATION 0 
QD 
//JSORLT3 OD NSNSCTH2.LOA0 ,DIS P=SHR eh 
/IGIMPUN EXEC PGM=GIMPUNCH sP AP M=*REPORT/5* ,REGIONK120K 
- f fk THE MUMAER FOLLOWING "REPORT/* IS THE DATA BASE NUMBER OT 
Q1 : \ BASE BE 

/ISYSPRINT OC SYS QUT=A, NC B= (RECFM= FBA,LRECL=223,BLKSIZ@=133) : 
//GISHIST 30 UNIT=2400,D1 SP=(CLD, KEEP) , : 
// VOL=SER=123456, , ry - 
y NS N=HISTORYL ; 
/GEMPNCH 9 SYSCUT=&,PCB=(RECEM=FR MLercL sgn SIZES 
et ec p PLOECL=60 »ELKSIZE=80) 
//SORTLTR OL CSA=SYS1.SORTL 1H, DISP=SER | 
Z/SORTIN 9D. UNT TESYSOA 4D SNSEESRTINGDISP=(NEW PASS), 


a 


yy SPACE= (CYL + (194 3),R LSE), 
DCB=(RICEM=VB,LRECL=3508,y BLKS 12£=3512 ) 

AISORTOUT 99 UNTT=SYSIA¥DSN=EE SR TOUT DI SP=(NEWePASS) » 

1 SPACE=(CYL,(10,31,PLSE), i es 

1/ NCB=CRECEM=VE yLRECL=358 »BLKSTZE=3512) 


//SCRTHKOL 9D UNIT=SYSDAySPACE=(CYL ol 553) 

NKOL ON UNI SDAySPACE= , RUSE) | 
JISORTHKIZ DO UNIT=SYSOAySP ACES (CYL » (5,3), RLSED 
Z7SOLTRKO3 ON UNTTSSYSDA g SPACE =(CYL 9 (5 43) gRLSE) 
7/SUPTWKOG DE UN TT=SYSOA,SPACES(CYLy ( 5y 3)yRL SE) 


//S9P THKOS OD LNTTSSYSDA SPACE H=(CYL, ¢ ete ate ene 
, ACES 1 (5,3), RLS ED 
P/SAURTWKOG OD UNI TESYSDA SPACE ={CYL5 (553) *RLSE) 
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